home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / dev / src / wangisrc.lha / wangi / z / oldwp / Lib / wangi.c < prev    next >
C/C++ Source or Header  |  1995-03-26  |  2KB  |  84 lines
  1. // Wangi library... The C part of WangiPad...
  2. // Lee Kindess 1995
  3. // For SAS/C 5.5x
  4. //
  5. // ***********************************************************************
  6.  
  7. #include <proto/exec.h>
  8. #include <proto/intuition.h>
  9. #include <proto/dos.h>
  10.  
  11. #include <exec/types.h>
  12. #include <intuition/intuition.h>
  13.  
  14. // ***********************************************************************
  15.  
  16. LONG b = 0;
  17.  
  18. struct EasyStruct ez = {
  19.     sizeof (struct EasyStruct),
  20.     0,
  21.     "Wangi Library",
  22.     "The function \"%s\" has been called from wangi.library.\n"
  23.     "The value of a is: %ld\n"
  24.     "The value of b is: %ld\n",
  25.     "Ok",
  26. };
  27.  
  28.  
  29. // ***********************************************************************
  30.  
  31. LONG __asm __saveds __UserLibInit(register __a6 struct MyLibrary *libbase)
  32. {
  33.     IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library",37L);
  34.     DOSBase       = (struct DosLibrary *)OpenLibrary("dos.library",37L);
  35.     if (IntuitionBase && DOSBase) {
  36.         EasyRequest(NULL, &ez, NULL, "Init", -99L, b);
  37.         return(0L); // Continue...
  38.         }
  39.     else
  40.         return(1L); // Fail...
  41. }
  42.  
  43. // ***********************************************************************
  44.  
  45. void __saveds __asm __UserLibCleanup(register __a6 struct MyLibrary *libbase)
  46. {
  47.     EasyRequest(NULL, &ez, NULL, "Cleanup", -99L, b);
  48.     if (IntuitionBase)
  49.         CloseLibrary(( struct Library *)IntuitionBase);
  50.     if (DOSBase)
  51.         CloseLibrary(( struct Library *)DOSBase);
  52. }
  53.  
  54. // ***********************************************************************
  55.  
  56. LONG __asm __saveds LIBwangi1(void)
  57. {
  58.     // DisplayBeep(NULL);
  59.     EasyRequest(NULL, &ez, NULL, "Wangi1", -99L, b);
  60.     // DisplayBeep(NULL);
  61.     return(b);  
  62. }
  63.  
  64. // ***********************************************************************
  65.  
  66. LONG __asm __saveds LIBwangi2(register __d1 LONG a)
  67. {
  68.     b = a;
  69.     EasyRequest(NULL, &ez, NULL, "Wangi2", a, b);
  70.     return(b);
  71. }
  72.  
  73. // ***********************************************************************
  74.  
  75. LONG __asm __saveds LIBwangi3(register __d1 LONG a)
  76. {
  77.     b += a;
  78.     EasyRequest(NULL, &ez, NULL, "Wangi3", a, b);
  79.     return(b);
  80. }
  81.  
  82. // ***********************************************************************
  83.  
  84.